home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Oberon / source / amiga / Cia.mod < prev    next >
Text File  |  1995-06-29  |  2KB  |  87 lines
  1. (***************************************************************************
  2.  
  3.      $RCSfile: Cia.mod $
  4.   Description: Interface to ciaa.resource and ciab.resource
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.8 $
  8.       $Author: fjc $
  9.         $Date: 1995/06/04 23:13:14 $
  10.  
  11.   Includes Release 40.15
  12.  
  13.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  14.       All Rights Reserved
  15.  
  16.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  17.   This file is part of the Oberon-A Interface.
  18.   See Oberon-A.doc for conditions of use and distribution.
  19.  
  20. ***************************************************************************)
  21.  
  22. <* STANDARD- *>
  23.  
  24. MODULE [2] Cia;
  25.  
  26. IMPORT e := Exec, s := Sets;
  27.  
  28.  
  29. (*
  30. **      $VER: cia.h 36.4 (9.1.91)
  31. **
  32. **      Cia resource name strings.
  33. *)
  34.  
  35. CONST
  36.  
  37.   ciaaName * = "ciaa.resource";
  38.   ciabName * = "ciab.resource";
  39.  
  40. (*
  41. **      $VER: ciabase.h 1.2 (16.5.90)
  42. **
  43. **      cia base definitions
  44. *)
  45.  
  46.  
  47. (*
  48.  *      There is no public information in CiaBase
  49.  *)
  50.  
  51.  
  52. (**-- Resource Base variable --------------------------------------------*)
  53.  
  54. (*
  55.  *  You have to put a pointer to the cia?.resource here to use the cia
  56.  *  procedures:
  57.  *)
  58.  
  59. VAR
  60.  
  61.   base * : e.APTR;
  62.  
  63.  
  64. (**-- Resource Functions ------------------------------------------------*)
  65.  
  66. (*
  67. **      $VER: cia_protos.h 1.7 (19.7.90)
  68. *)
  69.  
  70.  
  71. PROCEDURE AddICRVector* [base,-6]
  72.   ( icrBit    [0] : SHORTINT;
  73.     interrupt [9] : e.InterruptPtr )
  74.   : e.InterruptPtr;
  75. PROCEDURE RemICRVector* [base,-12]
  76.   ( icrBit    [0] : LONGINT;
  77.     interrupt [9] : e.InterruptPtr );
  78. PROCEDURE AbleICR* [base,-18]
  79.   ( mask [0] : s.SET8 )
  80.   : s.SET8;
  81. PROCEDURE SetICR* [base,-24]
  82.   ( mask [0] : s.SET8 )
  83.   : s.SET8;
  84.  
  85. BEGIN base := NIL
  86. END Cia.
  87.